其他
你不能错过的操作秘籍，办公室小白也能轻松搞定 Excel 动态图表
你好，我是清风徐来
这是本公众号AI学习系列原创文章。
今天教你用 5 分钟搞定 VBA 代码
实现以下效果，不需要编写一行代码！
1、启用 Excel 的“ 开发者模式”
使用微软 Excel，不是 WPS 的 excel 啊
按以下方法启用
以 office 365 为例，启用“开发工具”步骤：
“文件”->“选项”->“常规”-> “自定义功能区” ->勾选“开发工具”；
2、准备基础数据表
准备你的基础 Excel 数据表，并将基础数据表存为xlsm的格式
一定要存成此格式，才能使用 VBA
你可以准备任意类似表格，销售表、学生成绩表
3、插入按钮
在“ 开发者模式”菜单下，插入 atcivex 中的 按钮（第一个），记住 名字（设计模式下右键点属性）
这个按钮的名字默认是 “CommandButton1”
4：拷贝代码
完整代码如下，需要完整复制
Private Sub CommandButton1_Click()
'获取选中的区域
Dim rng As Range
Set rng = Selection
'创建一个柱状图对象
Dim cht As ChartObject
Set cht = ActiveSheet.ChartObjects.Add(Left:=rng.Left + rng.Width, Top:=rng.Top + rng.Height, Width:=400, Height:=300)
'设置图表的数据源和类型
With cht.Chart
.SetSourceData Source:=rng
.ChartType = xlColumnClustered
End With
'添加图表标题
cht.Chart.HasTitle = True
cht.Chart.ChartTitle.Text = "柱状图"
End Sub
拷贝后来到 Excel，按以下方式将代码拷贝到 VB 中，因为数据在子表 sheet1，所以双击 sheet1，再拷贝进去
5、运行
选中任意数据，点击按钮，会自动出来柱状图
换一个学生成绩表，一样搞定
如果点了按钮没反应
一般是两个原因，第一 按钮的名称和代码中名称不一致（代码中按钮名称为CommandButton1），改为一致即可
第二，还在 VB 的设计模式，未退出，退出即可
就这么简单！
你，学肥了吗？
好啦，今天的分享就是这样
原创不易，欢迎阅读、点赞、转发、分享
免费使用 GPT-4o 的六个网站
掌握了这些神器，你就是办公室卷王！
用AI画小姐姐，真的太顶了！
美国人吹的牛，被这个中国AI实现了！
又被夸了！六个案例讲透 AI 做文档分析
天呐! AI 之王 GPT-6 猎户座 来了！
房屋养老金=房产税？AI竟然这样回答
免费生成美猴王图片的六个AI网站
姜萍作弊了吗？我问了18个AI搜索，竟给出了这样的回答
Kimi+ WPS，5 分钟做行研 PPT
清华 AI 团队用 ChatGPT 开医院，一天看完几年的病
保姆级教程！手把手教你支付宝开通 ChatGPT plus！
可视化！用 GT4 十分钟内完成泰坦尼克号生存分析